`codominant` <-
function(o) UseMethod("codominant")

